home *** CD-ROM | disk | FTP | other *** search
/ Informática Multimedia 1995 April / Informatica Multimedia CD - Epimundo.iso / DOS / CAT_DISK / VDBRWS.ZIP / MCSH.EX < prev    next >
Encoding:
Text File  |  1994-03-13  |  1.8 KB  |  188 lines
  1.     
  2. îB=1,C=0
  3. îD=B,
  4. E=B,
  5. F=20,
  6. G=B 
  7. îH=19,
  8. I=20,
  9. J=22,
  10. K=23
  11. ïL(¡M)
  12. çM>=0
  13. éï
  14. ïM(¡N)
  15. çN>=-1
  16. éï
  17. ÆæN(L O,M P)
  18. ç╧(H,{O,P})
  19. éæ
  20. ÆæO(L P)
  21. ç╧(I,P)
  22. éæ
  23. Æî
  24. P=1,
  25. Q=2,
  26. R=3,
  27. S=4,
  28. T=5,
  29. U=6,
  30. V=7,
  31. W=8,
  32. X=9
  33. ÆæY(«Z)
  34. ç╧(J,Z)
  35. éæ
  36. ÆæZ()
  37. ç╧(K,0)
  38. éæ
  39. Ææa(«b)
  40. ¡c,d,e,f
  41. ░g,h
  42. f=½(b)
  43. c=╢(f/3)+1
  44. è1ê
  45. e=c+1
  46. åi=eìfê
  47. g=b[i]
  48. d=i-c
  49. è1ê
  50. h=b[d]
  51. ü╜(g,h)>=0â
  52. d=d+c
  53. É
  54. éü
  55. b[d+c]=h
  56. üd<=câ
  57. É
  58. éü
  59. d=d-c
  60. éè
  61. b[d]=g
  62. éå
  63. üc=1â
  64. çb
  65. à
  66. c=╢(c/3)+1
  67. éü
  68. éè
  69. éæ
  70. îb=16,
  71. c=17
  72. îd=╬(2,32)-1
  73. ïe(╝f)
  74. çf>0Äf<=dÄ╢(f)=f
  75. éï
  76. Ææg(¡h)
  77. ç╧(b,h)
  78. éæ
  79. Æäi(e f)
  80. ╨(c,f)
  81. éä
  82. Ææh(╝f)
  83. «j
  84. j={0,0,0,0}
  85. j[1]=═(f,#100)
  86. f=╢(f/#100)
  87. j[2]=═(f,#100)
  88. f=╢(f/#100)
  89. j[3]=═(f,#100)
  90. f=╢(f/#100)
  91. j[4]=═(f,#100)
  92. çj
  93. éæ
  94. Ææf(«j)
  95. çj[1]+
  96. j[2]*#100+
  97. j[3]*#10000+
  98. j[4]*#1000000
  99. éæ
  100. îj=1,k=2
  101. «l
  102. «m
  103. m={{-1,{
  104. 100,117,109,109,121}}}
  105. în=1
  106. îo=1,p=2,q=3,r=4,s=5,t=6
  107. îu=7,v=8,w=9
  108. ¡x
  109. x=0
  110. ¡y
  111. y=0
  112. ¡z
  113. z=1
  114. äBA()
  115. üm[½(m)][1]=-1â
  116. m=m[1..½(m)-1]
  117. ü½(m)=0â
  118. ç
  119. éü
  120. éü
  121. ┤(j,{
  122. 10,84,104,101,32,84,111,112,32,37,100,10,10},½(m))
  123. åBB=1ì½(m)ê
  124. ┤(j,{
  125. 37,55,100,32,37,45,49,52,115,10},m[BB])
  126. éå
  127. éä
  128. äBB(¡BC,«BD,¡BE)
  129. ¼(BC,BD)
  130. åBF=½(BD)+1ìBEê
  131. ¼(BC,32)
  132. éå
  133. éä
  134. äBC(«BD)
  135. ¼(z,x)
  136. BB(z,BD[o],14)
  137. BB(z,BD[p],3)
  138. ¼(z,h(BD[q]))
  139. ¼(z,h(BD[r]))
  140. åBE=sìwê
  141. ¼(z,BD[BE])
  142. éå
  143. ü╛(100,BD[Q])â
  144. ç
  145. éü
  146. y=y+1
  147. üöDÄGâ
  148. ┤(j,{
  149. 37,100,32,13},y)
  150. éü
  151. éä
  152. äBF(«BD)
  153. ░BE
  154. BE=Y(BD)
  155. è╛(BD[½(BD)],{
  156. 32,92})ê
  157. BD=BD[1..½(BD)-1]
  158. éè
  159. ü╝(BE)â
  160. ¼(k,{
  161. 67,111,117,108,100,110,39,116,32,111,112,101,110,32}&BD)
  162. éü
  163. BE=a(BE)
  164. åBG=1ì½(BE)ê
  165. üö╛(BE[BG][P],{{
  166. 46},{
  167. 46,46}})â
  168. BC(BE[BG])
  169. ü╛(100,BE[BG][Q])â
  170. x=x+n
  171. BF(BD&92&BE[BG][P])
  172. x=x-n
  173. éü
  174. éü
  175. éå
  176. éä
  177. l=┴()
  178. ü½(l)!=4â
  179. ¼(k,{
  180. 117,115,97,103,101,58,32,101,120,32,119,97,108,107,51,32,112,97,116,104,
  181. 45,110,97,109,101,32,111,117,116,112,117,116,45,102,105,108,101,10})
  182. ╤(1)
  183. éü
  184. z=┬(l[4],{
  185. 119,98})
  186. BF(l[3])
  187. ùwarning
  188.